	integer a,b,c,m(2)
10	write(6,100)
100	format(' Give a,b,c on separate lines (a<0 to quit):')
	read(5,200) a
	if (a .lt. 0) stop
	read(5,200) b
	read(5,200) c
200	format(i10)
	write(6,300) a,b,c
300	format(' a,b,c= ',3i12)
	call divrem(a,b,c,m)
	write(6,400) m
400	format(' m= ',3i12)
	goto 10
	end
